limplify top level at last

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 89744f6e0d21f64ce43dfc32f3533c8547ff1383..e76e68c31bdf52a8b109565e72b0feadb06bf9bd 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1123,9 +1123,8 @@ This will be called at load-time."
 (defun comp-limplify (lap-funcs)
   "Compute the LIMPLE ir for LAP-FUNCS.
 Top level forms for the current context are rendered too."
-  (mapc #'comp-add-func-to-ctxt
-        (cons (comp-limplify-top-level)
-              (mapcar #'comp-limplify-function lap-funcs))))
+  (mapc #'comp-add-func-to-ctxt (mapcar #'comp-limplify-function lap-funcs))
+  (comp-add-func-to-ctxt (comp-limplify-top-level)))
 
 \f
 ;;; SSA pass specific code.